10 MODE 2:INK 0,13:INK 1,0:BORDER 6
20 x=320:y=200
30 PRINT CHR$(7):
40 PLOT x,y
50 x=x+(((x>0)-(x<640))+((INKEY(1)-INKEY(8))))
60 y=y+(((y>0)-(y<400))+((INKEY(0)-INKEY(2))))
70 IF INKEY(60)>-1 THEN SAVE"etchscr.bin",b,&C000,&3FFF:PRINT CHR$(7)
80 IF INKEY(62)>-1 THEN CLS:GOTO 30
90 IF INKEY(50)>-1 THEN CLS:GOTO 20
100 GOTO 40